home *** CD-ROM | disk | FTP | other *** search
/ Utilities Professional 1-1500 / Utilities Professional 1-1500 (1994)(WPD)[!].iso / 12511500 / var1459.dms / var1459.adf / LowLevelGraphics / Example8.c < prev    next >
C/C++ Source or Header  |  1992-04-28  |  8KB  |  269 lines
  1. /***********************************************************/
  2. /*                                                         */
  3. /* Amiga C Encyclopedia (ACE) V3.0      Amiga C Club (ACC) */
  4. /* -------------------------------      ------------------ */
  5. /*                                                         */
  6. /* Book:    ACM Graphics                Amiga C Club       */
  7. /* Chapter: LowLevelGraphics            Tulevagen 22       */
  8. /* File:    Example8.c                  181 41  LIDINGO    */
  9. /* Author:  Anders Bjerin               SWEDEN             */
  10. /* Date:    92-04-28                                       */
  11. /* Version: 1.00                                           */
  12. /*                                                         */
  13. /*   Copyright 1992, Anders Bjerin - Amiga C Club (ACC)    */
  14. /*                                                         */
  15. /* Registered members may use this program freely in their */
  16. /*     own commercial/noncommercial programs/articles.     */
  17. /*                                                         */
  18. /***********************************************************/
  19.  
  20. /* This example shows how to use the functions: SetAPen(), SetBPen(),  */
  21. /* SetOPen(), SetDrMd(), SetDrPt(), WritePixel(), ReadPixel(), Move(), */
  22. /* Draw(), Text() and finally PolyDraw().                              */
  23.  
  24.  
  25. #include <intuition/intuition.h>
  26. #include <graphics/gfxbase.h>
  27. #include <graphics/gfxmacros.h>
  28.  
  29.  
  30. /* NOTE! We must include the file "gfxmacros.h" inorder to be able to */
  31. /* use the function (macro) SetDrPt().                                */
  32.  
  33.  
  34. #define WIDTH  320 /* 320 pixels wide (low resolution)                */
  35. #define HEIGHT 200 /* 200 lines high (non interlaced NTSC display)    */ 
  36. #define DEPTH    2 /* 2 BitPlanes should be used, gives four colours. */
  37. #define COLOURS  4 /* 2^2 = 4                                         */
  38.  
  39.  
  40. struct IntuitionBase *IntuitionBase;
  41. struct GfxBase *GfxBase;
  42.  
  43.  
  44. struct View my_view;
  45. struct View *my_old_view;
  46. struct ViewPort my_view_port;
  47. struct RasInfo my_ras_info;
  48. struct BitMap my_bit_map;
  49. struct RastPort my_rast_port;
  50.  
  51.  
  52. UWORD my_color_table[] =
  53. {
  54.   0x000, /* Colour 0, Black */
  55.   0xF00, /* Colour 1, Red   */
  56.   0x0F0, /* Colour 2, Green */
  57.   0x00F  /* Colour 3, Blue  */
  58. };
  59.  
  60.  
  61. /* The coordinates for the PolyDraw() function: (Creates a small box) */
  62. WORD coordinates[] =
  63. {
  64.   100, 10,
  65.   140, 10,
  66.   140, 50,
  67.   100, 50,
  68.   100, 10
  69. };
  70.  
  71.  
  72. void clean_up();
  73. void main();
  74.  
  75.  
  76. void main()
  77. {
  78.   UWORD *pointer;
  79.   int loop;
  80.   
  81.  
  82.   /* Open the Intuition library: */
  83.   IntuitionBase = (struct IntuitionBase *)
  84.     OpenLibrary( "intuition.library", 0 );
  85.   if( !IntuitionBase )
  86.     clean_up( "Could NOT open the Intuition library!" );
  87.  
  88.   /* Open the Graphics library: */
  89.   GfxBase = (struct GfxBase *)
  90.     OpenLibrary( "graphics.library", 0 );
  91.   if( !GfxBase )
  92.     clean_up( "Could NOT open the Graphics library!" );
  93.  
  94.  
  95.   /* Save the current View, so we can restore it later: */
  96.   my_old_view = GfxBase->ActiView;
  97.  
  98.  
  99.   /* 1. Prepare the View structure, and give it a pointer to */
  100.   /*    the first ViewPort:                                  */
  101.   InitView( &my_view );
  102.   my_view.ViewPort = &my_view_port;
  103.  
  104.  
  105.   /* 2. Prepare the ViewPort structure, and set some important values: */
  106.   InitVPort( &my_view_port );
  107.   my_view_port.DWidth = WIDTH;         /* Set the width.                */
  108.   my_view_port.DHeight = HEIGHT;       /* Set the height.               */
  109.   my_view_port.RasInfo = &my_ras_info; /* Give it a pointer to RasInfo. */
  110.   my_view_port.Modes = NULL;           /* Low resolution.               */
  111.  
  112.  
  113.   /* 3. Get a colour map, link it to the ViewPort, and prepare it: */
  114.   my_view_port.ColorMap = (struct ColorMap *) GetColorMap( COLOURS );
  115.   if( my_view_port.ColorMap == NULL )
  116.     clean_up( "Could NOT get a ColorMap!" );
  117.  
  118.   /* Get a pointer to the colour map: */
  119.   pointer = (UWORD *) my_view_port.ColorMap->ColorTable;
  120.  
  121.   /* Set the colours: */
  122.   for( loop = 0; loop < COLOURS; loop++ )
  123.     *pointer++ = my_color_table[ loop ];
  124.  
  125.  
  126.   /* 4. Prepare the BitMap: */
  127.   InitBitMap( &my_bit_map, DEPTH, WIDTH, HEIGHT );
  128.  
  129.   /* Allocate memory for the Raster: */ 
  130.   for( loop = 0; loop < DEPTH; loop++ )
  131.   {
  132.     my_bit_map.Planes[ loop ] = (PLANEPTR) AllocRaster( WIDTH, HEIGHT );
  133.     if( my_bit_map.Planes[ loop ] == NULL )
  134.       clean_up( "Could NOT allocate enough memory for the raster!" );
  135.  
  136.     /* Clear the display memory with help of the Blitter: */
  137.     BltClear( my_bit_map.Planes[ loop ], RASSIZE( WIDTH, HEIGHT ), 0 );
  138.   }
  139.  
  140.   
  141.   /* 5. Prepare the RasInfo structure: */
  142.   my_ras_info.BitMap = &my_bit_map; /* Pointer to the BitMap structure.  */
  143.   my_ras_info.RxOffset = 0;         /* The top left corner of the Raster */
  144.   my_ras_info.RyOffset = 0;         /* should be at the top left corner  */
  145.                                     /* of the display.                   */
  146.   my_ras_info.Next = NULL;          /* Single playfield - only one       */
  147.                                     /* RasInfo structure is necessary.   */
  148.  
  149.   /* 6. Create the display: */
  150.   MakeVPort( &my_view, &my_view_port );
  151.   MrgCop( &my_view );
  152.  
  153.  
  154.   /* 7. Prepare the RastPort, and give it a pointer to the BitMap. */
  155.   InitRastPort( &my_rast_port );
  156.   my_rast_port.BitMap = &my_bit_map;
  157.   
  158.  
  159.   /* 8. Show the new View: */
  160.   LoadView( &my_view );
  161.  
  162.  
  163.   SetDrMd( &my_rast_port, JAM1 ); /* Use FgPen only. */
  164.   SetAPen( &my_rast_port, 2 );    /* FgPen: Green    */
  165.   SetBPen( &my_rast_port, 1 );    /* BgPen: Red      */
  166.  
  167.  
  168.  
  169.   /* Write a pixel: */
  170.   WritePixel( &my_rast_port, 10, 10 );
  171.  
  172.  
  173.   /* Check what colour the pixel was drawn with: */
  174.   printf( "Colour: %d\n", ReadPixel( &my_rast_port, 10, 10 ) );
  175.  
  176.  
  177.   /* Move the cursor to (20, 10) and draw a simple line to (20, 100): */
  178.   Move( &my_rast_port, 20, 10 );
  179.   Draw( &my_rast_port, 20, 100 );
  180.  
  181.  
  182.   /* Move the cursor to (25, 10) and draw a patterned line to (25, 100): */
  183.   /* Pattern: 1111 0110 1111 0110 1111 = F6F6 (hexadecimal)              */
  184.   SetDrPt( &my_rast_port, 0xF6F6 );
  185.   Move( &my_rast_port, 25, 10 );
  186.   Draw( &my_rast_port, 25, 100 );
  187.  
  188.  
  189.   /* Write "Hello!" with FgPen (green), do not change the background: */
  190.   Move( &my_rast_port, 30, 10 );
  191.   Text( &my_rast_port, "Hello!", 6 );
  192.  
  193.   /* Write "Hello!" with FgPen and change background to BgPen: */
  194.   /* (Green text on red background.)                           */
  195.   SetDrMd( &my_rast_port, JAM2 );
  196.   Move( &my_rast_port, 30, 20 );
  197.   Text( &my_rast_port, "Hello!", 6 );
  198.  
  199.   /* Inversed JAM1. Black text on green background: */
  200.   SetDrMd( &my_rast_port, JAM1|INVERSVID );
  201.   Move( &my_rast_port, 30, 30 );
  202.   Text( &my_rast_port, "Hello!", 6 );
  203.  
  204.   /* Inversed JAM2. Red text on black background: */
  205.   SetDrMd( &my_rast_port, JAM2|INVERSVID );
  206.   Move( &my_rast_port, 30, 40 );
  207.   Text( &my_rast_port, "Hello!", 6 );
  208.  
  209.   /* Print the text in red with a green shadow: */
  210.   /* JAM1, green text background unchanged (black): */
  211.   SetDrMd( &my_rast_port, JAM1 );
  212.   Move( &my_rast_port, 30, 50 );
  213.   Text( &my_rast_port, "Hello!", 6 );
  214.   /* Change FgPen to red: */
  215.   SetAPen( &my_rast_port, 1 );
  216.   Move( &my_rast_port, 31, 51 );
  217.   Text( &my_rast_port, "Hello!", 6 );
  218.  
  219.  
  220.   /* Draw a small red box:  */
  221.   /* Move to the start position. (Otherwise there would be a line from */
  222.   /* were the cursor is for the moment up to the start position.)      */
  223.   Move( &my_rast_port, 100, 10 );
  224.   PolyDraw( &my_rast_port, 5, coordinates ); /* (5 : Five coordinates) */
  225.  
  226.  
  227.  
  228.   /* Wait 20 seconds: */
  229.   Delay( 50 * 20 );
  230.  
  231.  
  232.   /* 9. Restore the old View: */
  233.   LoadView( my_old_view );
  234.  
  235.  
  236.   /* Free all allocated resources and leave. */
  237.   clean_up( "THE END" );
  238. }
  239.  
  240.  
  241. /* Returns all allocated resources: */
  242. void clean_up( message )
  243. STRPTR message;
  244. {
  245.   int loop;
  246.  
  247.   /* Free automatically allocated display structures: */
  248.   FreeVPortCopLists( &my_view_port );
  249.   FreeCprList( my_view.LOFCprList );
  250.   
  251.   /* Deallocate the display memory, BitPlane for BitPlane: */
  252.   for( loop = 0; loop < DEPTH; loop++ )
  253.     if( my_bit_map.Planes[ loop ] )
  254.       FreeRaster( my_bit_map.Planes[ loop ], WIDTH, HEIGHT );
  255.  
  256.   /* Deallocate the ColorMap: */
  257.   if( my_view_port.ColorMap ) FreeColorMap( my_view_port.ColorMap );
  258.  
  259.   /* Close the Graphics library: */
  260.   if( GfxBase ) CloseLibrary( GfxBase );
  261.  
  262.   /* Close the Intuition library: */
  263.   if( IntuitionBase ) CloseLibrary( IntuitionBase );
  264.  
  265.   /* Print the message and leave: */
  266.   printf( "%s\n", message ); 
  267.   exit();
  268. }
  269.